home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / MENUTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-06  |  1KB  |  37 lines
  1. USES
  2.   teglfont,
  3.   teglmain,
  4.   teglunit,
  5.   twcommon,
  6.   twkernel;
  7.  
  8. VAR
  9.   wf : WinFramePtr;
  10. BEGIN
  11.   twEasyStart;
  12.   twSetHeaderFont(@f8x8bold);
  13.   twSetGlobalButtonSize(12,12);
  14.   twSetGlobalSliderSize(24,24);
  15.   new(wf);
  16.   twInit(wf,100,100,450,300);
  17.   wf^.updownslider := true;
  18.   wf^.leftrightslider := true;
  19.   twSetHeader(wf,'Menu Test');
  20.   twMenuItem(wf,' File ',true);
  21.     twSubMenuItem(wf,' Open ',true,NilUnitProc);
  22.     twSubMenuItem(wf,' Save ',true,NilUnitProc);
  23.     twSubMenuItem(wf,' Save as... ',true,NilUnitProc);
  24.     twSubMenuItem(wf,'-',false,nilunitproc);
  25.     twSubMenuItem(wf,' Exit ',true,nilunitproc);
  26.   twMenuItem(wf,' Edit ',true);
  27.     twSubMenuItem(wf,' Undo ',true,NilUnitProc);
  28.     twSubMenuItem(wf,' Select ',true,NilUnitProc);
  29.   twMenuItem(wf,' Window ',true);
  30.     twSubMenuItem(wf,' Tile ',true,NilUnitProc);
  31.     twSubMenuItem(wf,' Select ',true,NilUnitProc);
  32.   twMenuItem(wf,' Help ',true);
  33.     twSubMenuItem(wf,' Contents ',true,NilUnitProc);
  34.     twSubMenuItem(wf,' Index ',true,NilUnitProc);
  35.   twDrawWindowFrame(wf);
  36.   TeglSupervisor;
  37. END.